﻿Imports CrystalDecisions.Shared
Public Class frmLibroVentas
    Private Sub btnGenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerar.Click
        Dim con As New ConexionBD
        'Dim report As New LC2
        Dim FechaDV, SucursalDV As New ParameterDiscreteValue
        If cbSucursal.Text = "Jomex" Then
            If cbLibro.Text = "Libro de ventas" Then
                Dim LibroVentaNac As New rptLibroVentasJomex
                con.BasededatosP = "Jomex"
                LibroVentaNac.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtpFecha.Value
                LibroVentaNac.SetParameterValue("@Fecha", FechaDV)
                SucursalDV.Value = cbSucursal.Text.Substring(0, 2)
                LibroVentaNac.SetParameterValue("@Sucursal", SucursalDV)
                crvVentas.ReportSource = LibroVentaNac
            End If
        Else
            If cbLibro.Text = "Libro de exportaciones" Then
                Dim report As New LibroVentaExportaciones
                con.BasededatosP = "Recmetal"
                'report.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                report.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtpFecha.Value
                report.SetParameterValue("@FECHA", FechaDV)
                'report.SetParameterValue("@Fecha", FechaDV, "rptResumen.rpt")

                'SucursalDV.Value = cbSucursal.Text
                'report.SetParameterValue("@Sucursal", SucursalDV)
                'report.SetParameterValue("@Sucursal", SucursalDV, "rptResumen.rpt")
                SucursalDV.Value = 1
                report.SetParameterValue("@NumDocto", SucursalDV)
                'report.SetParameterValue("@Sucursal", SucursalDV, "rptResumen.rpt")
                crvVentas.ReportSource = report
            ElseIf cbLibro.Text = "Libro de ventas" Then
                Dim report As New LibroVentaNacional
                con.BasededatosP = "Recmetal"
                report.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtpFecha.Value
                report.SetParameterValue("@Fecha", FechaDV)
                report.SetParameterValue("@Fecha", FechaDV, "rptResumenVtaNac.rpt")
                SucursalDV.Value = cbSucursal.Text
                report.SetParameterValue("@Sucursal", SucursalDV)
                report.SetParameterValue("@Sucursal", SucursalDV, "rptResumenVtaNac.rpt")
                crvVentas.ReportSource = report
            Else
                Dim report As New rptLibroExportacionesHorizontal
                con.BasededatosP = "Recmetal"
                'report.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                report.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtpFecha.Value
                report.SetParameterValue("@FECHA", FechaDV)
                'report.SetParameterValue("@Fecha", FechaDV, "rptResumen.rpt")

                'SucursalDV.Value = cbSucursal.Text
                'report.SetParameterValue("@Sucursal", SucursalDV)
                'report.SetParameterValue("@Sucursal", SucursalDV, "rptResumen.rpt")
                SucursalDV.Value = 1
                report.SetParameterValue("@NumDocto", SucursalDV)
                'report.SetParameterValue("@Sucursal", SucursalDV, "rptResumen.rpt")
                crvVentas.ReportSource = report
            End If
           
        End If
    End Sub
End Class